Reinaldo, eu acho que agora vamos acabar , preciso de ajuda nos acabamentos abaixo:

1) Fiz outra macro para o filtro colocando novamente Plan7(Dados) e fiz os testes e percebi que não interfere quando salvo, porém, se eu filtrar os dados e não desfazer o filtro, alguns comandos dos botões (primeiro, próximo, anterior e ultimo) não estão funcionando devido os dados estarem filtrados, pois como sugestão preciso de uma macro para quando eu chamar o frmCadastroStudent, desfaça o filtro, mas permanecendo o autofiltro na planilha, para a macro de filtragem funcionar quando precisar;

2) No código Private Sub Image1_Click(), preciso de um tratamento de erro para quando o usuário instalar este controle em outro PC não perdendo o endereço da imagem,

3) Preciso também dar o acabamento no projeto:
a) Quando abrir o arquivo do controle, gostaria que ele abri-se com a tela cheia e sempre na planilha "Menu no Excel", não permitindo que o usuário tecle ESC para voltar o menu do Excel;
b) No bt Sair do menu suspenso coloquei o código abaixo, porém quando cancelo esta fechando o Excel, na qual deveria voltar para planilha "Menu no Excel" e ao sair todos menu e opções padrões do Excel voltem normalmente;

Sub Fechar()
    ActiveWorkbook.Save
            MsgBox "Deseja sair do Controle", vbOKCancel, "Saindo do Controle"
        
     Application.DisplayFullScreen = False
     ActiveWorkbook.Application.Quit
End Sub

c) Gostaria de uma macro para deixar em sequencia de empreenchimento os textbox e combobox dos formulários existente no projeto, estou alterando a sequencia da propriedade TabIndex, mas as vezes fica alterando a sequencia sozinho, não sei o por que.

Reinaldo agradeço pela paciência.

silva_jmp

1).:Segue uma possibilidade para o tratamento do filtro (vid folha de dados da sheet dados).
2)Não entendi, o sub que se refere "abre" a janela do sistema para procurar um arquivo; portanto ela não gera erro.
Mas se refere-se ao erro que e apresentado ao abrir o formulario ou navegar para um registro cujo caminho/imagem não é localizado, fiz um tratamento
Veja em: Sub lsLocalizaRegistroStudent1(ByVal lRegistro1 As Long)